home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGBLER / PC37030.LZH / PC37030.ZIP / TEST25S2.ALC < prev    next >
Text File  |  1987-04-22  |  640b  |  22 lines
  1.     TITLE 'TEST25S2 - TEST SVC 25 LOAD DYNAMICALLY LOADED SUBROUTINE'
  2. * AUTHOR. DON HIGGINS.
  3. * DATE.   04/09/87
  4. * REMARKS.
  5. *        THIS ROUTINE IS LINKED AS COM AND EXECUTED VIA BALR AT LOAD+X'210'
  6. *
  7. * MAINTENANCE.
  8. *
  9. * 04/18/87 USE ADDR. RELOCATION CONSTANTS TO DEMO ATTACH
  10. *
  11. TEST25S2 CSECT
  12.     USING TEST25S2,R15
  13.     LA    R2,MSG
  14.     SVC   WTO
  15.     BR    R14
  16. MSG      DC    C'TEST25S2 LOAD AND BALR TO 370 COM FILE SUCCESSFUL$'
  17. WTO      EQU   209
  18. R2       EQU   2    WTO PARM
  19. R14      EQU   14   LINK RETURN
  20. R15      EQU   15   BASE
  21.     END
  22.